10 REM DEMONSTRATION - KENNY LAWSON
20 A$="     ":B$=A$+"  ":FORX=1TO15:AN$=AN$+CHR$(17):NEXT:AN$=CHR$(19)+AN$
30 POKE646,7:PRINTCHR$(147);:PRINT"FILE"B$"COPY"B$"CUT"B$"PASTE":PRINT
40 PRINT"DISK"B$"VIEW"B$"HELP"B$"PRINT":FORX=1TO21:PRINT:NEXT
50 PRINT"TRANSFER"A$"DATA"A$"TIME"A$"QUIT"CHR$(19)
60 C$="":POKE53281,6:POKE53280,14:SYS680
70 P=1024+(INT((PEEK(53249)-50)/8)*40)+(INT((PEEK(53248)+256*PEEK(53264))/8)-3)
80 IFP<1027THENC$="FILE"
90 IFP>1034ANDP<1039THENC$="COPY"
100 IFP>1045ANDP<1049THENC$="CUT"
110 IFP>1056ANDP<1061THENC$="PASTE"
120 IFP>1103ANDP<1108THENC$="DISK"
130 IFP>1114ANDP<1119THENC$="VIEW"
140 IFP>1125ANDP<1130THENC$="HELP"
150 IFP>1136ANDP<1142THENC$="PRINT"
160 IFP>1983ANDP<1992THENC$="TRANSFER"
170 IFP>1996ANDP<2001THENC$="DATA"
180 IFP>2005ANDP<2010THENC$="TIME"
190 IFP>2015ANDP<2019THENC$="QUIT"
200 PRINTAN$"YOU CALLED FOR         [157][157][157][157][157][157][157][157]"C$:IFC$<>"QUIT"THEN60